home *** CD-ROM | disk | FTP | other *** search
/ NetNews Offline 2 / NetNews Offline Volume 2.iso / news / comp / sys / amiga / applications / 4240 < prev    next >
Encoding:
Text File  |  1996-08-05  |  1.7 KB  |  74 lines
  1. Newsgroups: comp.sys.amiga.applications,z-netz.rechner.amiga.software,de.comp.sys.amiga
  2. Message-ID: <xZPehMD4F24aUz1@jr-ewing.dame.shnet.org>
  3. From: JR-EWING@DAME.SHNET.ORG (jens reimer)
  4. Path: filelink.shnet.org!dame.shnet.org
  5. Organization: MicroDot-Supportsystem
  6. Subject: AREXX Problem
  7. Date: Fri, 05 Apr 1996 09:36:17 +0200
  8. X-Mailer: MicroDot 1.11beta16 [REGISTERED 004f24]
  9. X-Gateway: ZCONNECT zelator.berlinet.de [LEGO v0.11]
  10. MIME-Version: 1.0
  11. Content-Type: text/plain; charset=ISO-8859-1
  12. Content-Transfer-Encoding: 8bit
  13.  
  14. Ich habe mit einem ARexx Programm Probleme.
  15. Wahrscheinlich bin ich einfach zu dΣmlich und sehe den Wald vor lauter BΣumen
  16. nicht...
  17. Es k÷nnte aber auch sein, da▀ ich etwas grundsΣtzlich falsch gemacht habe.
  18. Vielleicht habt ihr einen Tip!
  19.  
  20. /* Importieren von Superbase Dateien fⁿr DataBase Professional */
  21.  
  22. OPTIONS RESULTS
  23.  
  24. device ="CON:0/0/640/200//WAIT/CLOSE/SCREENDATABASE"
  25.  
  26. ADDRESS Command
  27. 'C:Requestfile TITLE="Superbase File" PATTERN="#?.sbf" NOICONS PUBSCREEN DataBase >T:input'
  28.  
  29. ADDRESS DATABASE
  30. Requesttext "Feldseperator (HEX)"
  31. feldsep = result
  32. Requesttext "Recordseperator (HEX)"
  33. recsep = result
  34. TRACE ?R
  35. /* Bis hierhin ist noch alles ok */
  36. /* In T:input steht die Datei */
  37. IF ~Open(sbfile,T:input,R) THEN DO
  38. /*              ^^^^^^^ */
  39. /* Hier nicht mehr, lt trace wird ausdruck nicht ausgewertet !!!*/
  40. /* WIE bekomme ich das hin ???*/
  41.  
  42. IF ~Open(out, device, W) THEN DO
  43.  
  44. DO WHILE ~EOF(sbfile)
  45.    DO while (data = READCH(sbfile,1)) == recsep
  46.       /* Hier zwischen kommt noch etwas */
  47.       WRITECH(out,data)
  48.    END
  49. END
  50.  
  51. Close(out)
  52. END
  53.  
  54. Close(sbfile)
  55. END
  56.  
  57. TRACE o
  58.  
  59. EXIT
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66. Und Tschⁿss,
  67.  
  68. Jens Reimer
  69. --
  70. MicroDot 1.11Beta16
  71. EMAIL: JR-EWING@DAME.SHNET.ORG
  72.      : jens.reimer@hamburg.netsurf.de
  73.  
  74.